home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 25
/
Cream of the Crop 25.iso
/
bbs
/
con_005c.zip
/
CONCORD.RAR
/
SCRIPT.RAR
/
USERFORM.SCR
< prev
next >
Wrap
Text File
|
1997-04-25
|
2KB
|
85 lines
; USERFORM.SCR : Script to fill the user information form.
;
; This script is called from NEWUSER.SCR new user script.
;
; You can also call this script individually to modify previously
; given user information.
;
; Unremark line GOSUB UF_SAVEASCII in the end of this script
; to save the user information to ASCII file USERFORM.ASW.
VAR %ERROR% = NUMBER
:UF_START
SET %ERROR% = 0
; display user form file
MENUTYPE 8 USERFORM
; run "form" menutype
MENUTYPE 1A USERFORM
:UF_CHECK
IF ((@BIRTHDAY@ = "") OR (@AGE@ < 5) or (@AGE@ > 90))
WRITE "^G1,20;^C12,0;You have to give your birthday. Press Enter to correct.^E3;^A;"
SET %ERROR% = 1
END
IF ((@ADDRESS1@ = "") AND (@ADDRESS2@ = "") AND (@ADDRESS3@ = ""))
WRITE "^G1,20;^C12,0;You have to give your address. Press Enter to correct.^E3;^A;"
SET %ERROR% = 1
END
IF %ERROR% <> 0
GOTO UF_START
END
:UF_ACTION
WRITE "^G1,20;^C15,0;Form options : "
WRITE "^C7,0;(^C14,0;S^C7,0;)^C14,0;ave, "
WRITE "^C7,0;(^C14,0;A^C7,0;)^C14,0;gain, "
WRITE "^C7,0;(^C14,0;L^C7,0;)^C14,0;ogoff, "
WRITE "^C7,0;(^C14,0;H^C7,0;)^C14,0;elp "
SET @ANSWER@ =
WRITE "^C7,0;(^C15,0;~1S^C7,0;/^C15,0;~2A^C7,0;/^C15,0;~3L^C7,0;/^C15,0;~4H^C7,0;) ^W;^M;"
IF @ANSWER@ = 1
GOTO UF_STOP
END
IF @ANSWER@ = 2
GOTO UF_START
END
IF @ANSWER@ = 3
SET @ANSWER@ =
WRITE "^C14,0;Are you sure? (~1y/~2N) ^W;"
IF @ANSWER@ = 1
MENUTYPE 4 /IMMEDIATE
QUIT
ELSE
WRITE "^X-40;^E3;"
GOTO UF_ACTION
END
END
IF @ANSWER@ = 4
MENUTYPE 8 UFORMHLP
GOTO UF_START
END
:UF_SAVEASCII
OUTPUT USERFORM.ASW
WRITE "** @NAME@ answered on @CURRDATE@ @CURRTIME@^M;"
WRITE "Alias : @ALIAS@^M;"
WRITE "Address-1 : @ADDRESS1@^M;"
WRITE "Address-2 : @ADDRESS2@^M;"
WRITE "Address-3 : @ADDRESS3@^M;"
WRITE "Voice # : @VOICE@^M;"
WRITE "Data # : @DATA@^M;"
WRITE "Birthday : @BIRTHDAY@^M;
OUTPUT CRT
RETURN
:UF_STOP
;
; Remove semicolon from the beginning of next GOSUB line to save
; the user information form to ASCII file USERFORM.ASW :
;
; GOSUB UF_SAVEASCII
;
WRITE "^C14,0;^G1,20;User application form saved... Press Enter.^E3;^A;^M;^M;"
EXIT